home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / ad.arc / ADNOTE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.4 KB  |  80 lines
  1. 40  ARR$=CHR$(17)+CHR$(196)+CHR$(217)
  2. 50  ON ERROR GOTO 1940
  3. 100  DIM NKEY$(20),NOTE$(20)
  4. 120  O$=CHR$(219):O2$=CHR$(221):O1$="F KEYS:"+O$+O$+"F1:MAIN menu"+O2$+"F2:EDIT menu"+O2$+"F7:NAMES"+O2$+"F8:NOTES"+O2$+"F9:SAVE/CONT":NKEY$(1)=""
  5. 130  ON KEY(1) GOSUB 500:ON KEY(2) GOSUB 510:KEY(1) ON:KEY(2) ON:ON KEY(3) GOSUB 520:KEY(3) ON:ON KEY(4) GOSUB 530:KEY(4) ON:ON KEY(5) GOSUB 540:ON KEY(6) GOSUB 550:KEY(6) ON:KEY(5) ON:ON KEY(8) GOSUB 4000:KEY(8) ON
  6. 295  OPEN "TEMPOR.TEM" FOR INPUT AS #1
  7. 296  INPUT #1,  FILE$,FILM$,FIL$:CLOSE #1
  8. 300  OPEN FILM$ FOR INPUT AS #3
  9. 310  INPUT #3,Y$,NRED,NN,FILE$,FIL$,PT$,SNN$,LP1,LP$,T1$,SND$,TN,F$:CLOSE #3
  10. 320  GOTO 3000
  11. 500  A$="MAIN":Y1=1:GOTO 560
  12. 510  A$="EDIT":Y1=2:GOTO 560
  13. 520  A$="DELETE":Y1=3:GOTO 560
  14. 530  A$="SORT":Y1=4:GOTO 560
  15. 540  A$="SEARCH":Y1=5:GOTO 560
  16. 550  A$="PRINT":Y1=6:GOTO 560
  17. 560  CLS:LOCATE 25,25:COLOR 1,7,1:PRINT "INTEGRATED SOFTWARE SYSTEMS";:COLOR 3,0:LOCATE 12,21:PRINT "PLEASE WAIT, LOADING ";A$;" ROUTINES"
  18. 570  A$="AD"+A$:RUN A$
  19. 1940  IF ERR=53 THEN CLOSE #2: I=1:CLS:LOCATE 10,16:COLOR 15,0:PRINT "The file containing keys used in NOTES is empty":LOCATE 18,30:COLOR 0,7:PRINT "HIT ANY KEY TO CONTINUE":GOSUB 35010:COLOR 3,0 ELSE 1947
  20. 1941  Y$=INKEY$:IF Y$="" THEN 1941
  21. 1942  RESUME 3100
  22. 1947  IF ERR = 61 THEN CLS:LOCATE 25,10:COLOR 1,7,1:PRINT "FILE = ";FILE$;SPACE$(10);"DISK FULL ":COLOR 3,1:LOCATE 1,1
  23. 1950  IF ERR = 61 THEN LOCATE 10,1:PRINT "DISK FULL.  LOAD FORMATTED DISK AND TYPE <CONT> AND RETURN ":COLOR 14,0:LOCATE 10,43:PRINT "CONT":BEEP:COLOR 3,0:STOP
  24. 1960  IF ERR = 61 THEN RESUME 3000
  25. 1990  RUN"adedit
  26. 3000  FILN$ =FIL$+".NTE":GOSUB 4000
  27. 3010  OPEN FILN$ FOR INPUT AS #2
  28. 3030  FOR I= 1 TO 20:INPUT #2, NKEY$(I),NOTE$(I):IF NKEY$(I)=CHR$(15) THEN 3045 ELSE NEXT
  29. 3042  IF I = 1 THEN CLOSE #2: GOTO 3100 ELSE 3045
  30. 3045  CLOSE #2:NP=I-1
  31. 3100  CLOSE #2:GOSUB 9000
  32. 3120  LOCATE 1,1:PRINT "EDIT ... NOTE KEYS ":PRINT :LOCATE 5,28 :PRINT "ENTER:  NOTE KEY & ";ARR$:LOCATE 6,16:PRINT  "exactly the way you want to appear in the NOTES"
  33. 3122  LOCATE 8,35:PRINT "TO DELETE ":LOCATE 10,28:PRINT "Enter <-> minus key and ";ARR$
  34. 3125  LOCATE 12,39:PRINT "OR":LOCATE 14,20:PRINT ARR$;"  Save NOTE KEYS and return to EDIT menu":LOCATE 18,10:COLOR 14,0:INPUT "NOTE KEY ... ",S$
  35. 3130  IF LEN(S$)=0  THEN 3200
  36. 3131  IF S$="-" THEN 3187
  37. 3132  FOR I=1 TO NP:IF S$=NKEY$(I) THEN 3170 ELSE NEXT
  38. 3135  GOSUB 9000
  39. 3140  LOCATE 5,10:NKEY$(NP+1)=S$:PRINT "INPUT KEY DESCRIPTION:  "
  40. 3150  LOCATE 8,12:COLOR 14,0:PRINT S$;" =   ";:INPUT NOTE$(NP+1):NP=NP+1:COLOR 7,0
  41. 3160  GOTO 3100
  42. 3170  GOSUB 9000
  43. 3180  LOCATE 4,10:PRINT "ORIGINAL:  ":LOCATE 6,12:COLOR 14,0:PRINT S$;" =  ";NOTE$(I):COLOR 4,0:LOCATE 10,10:PRINT "INPUT KEY DESCRIPTION:  <";ARR$;"> IF NO CHANGE":COLOR 14,0:LOCATE 12,12:PRINT S$;" = ";:INPUT AT$:IF LEN(AT$)=0 THEN 3100
  44. 3182  NOTE$(I)=AT$
  45. 3185  GOTO 3100
  46. 3187  GOSUB 9000
  47. 3188  LOCATE 5,10:PRINT "EDIT KEY ... DELETE:  "
  48. 3189  LOCATE 8,12:COLOR 14,0:PRINT "KEY$:  ";:INPUT "",TEY$:COLOR 3,0
  49. 3190  FOR I=1 TO NP:IF TEY$=NKEY$(I) THEN 3193 ELSE NEXT
  50. 3191  LOCATE 14,30:COLOR 14,0:PRINT "NOT IN FILE":COLOR 7,0
  51. 3192  FOR J= 1 TO 500:NEXT:GOTO 3100
  52. 3193  LOCATE 10,20:COLOR 15,0:PRINT TEY$;" =  ";NOTE$(I):LOCATE 12,22:PRINT "OK TO DELETE?"
  53. 3194  Y$=INKEY$:IF Y$="" THEN 3194 ELSE IF Y$="Y" OR Y$="y" THEN 3196
  54. 3195  IF Y$="N" OR Y$="n" THEN 3100 ELSE 3194
  55. 3196  FOR J=I TO NP-1:SWAP NKEY$(J),NKEY$(J+1):SWAP NOTE$(J),NOTE$(J+1):NEXT
  56. 3197  NP=NP-1:GOTO 3100
  57. 3200  OPEN FILN$ FOR OUTPUT AS #2
  58. 3210  FOR I= 1 TO NP:WRITE #2, NKEY$(I),NOTE$(I):NEXT
  59. 3215  WRITE #2, CHR$(15),CHR$(15)
  60. 3220  CLOSE #2:RUN"adedit"
  61. 4000  IF NKEY$(1)="" OR NKEY$(1)=CHR$(15) THEN 4010 ELSE 4036
  62. 4010  OPEN FILN$ FOR INPUT AS #2
  63. 4030  FOR I= 1 TO 20:INPUT #2, NKEY$(I),NOTE$(I):IF NKEY$(I)=CHR$(15) THEN 4035 ELSE NEXT
  64. 4035  NP=I-1
  65. 4036  CLOSE #2
  66. 4040  GOSUB 9000
  67. 4050  LOCATE 1,1:PRINT "NOTES:  KEYS":LOCATE 1,30:COLOR 14,0:PRINT "KEYS       ";:COLOR 3,0:PRINT " DESCRIPTION":FOR I=1 TO NP:COLOR 14,0:LOCATE 4+I,30:PRINT NKEY$(I);:COLOR 3,0:LOCATE ,40:PRINT " = ";NOTE$(I):NEXT
  68. 4070  OPEN FILN$ FOR OUTPUT AS #2
  69. 4075  COLOR 7,0:C1$=CHR$(34)
  70. 4080  FOR I= 1 TO NP:WRITE #2, NKEY$(I),NOTE$(I):NEXT
  71. 4085  WRITE #2, CHR$(15),CHR$(15)
  72. 4086  LOCATE 20,28:COLOR 0,7:PRINT "HIT ANY KEY TO CONTINUE":COLOR 3,0:GOSUB 35030
  73. 4087  Y$=INKEY$:IF Y$="" THEN 4087
  74. 4090  CLOSE #2:RETURN 3010
  75. 9000  CLS:LOCATE 25,1:COLOR 0,7,1:PRINT O1$;:COLOR 3,0:LOCATE 1,1:RETURN
  76. 35000  IF SND$ ="N" THEN RETURN ELSE FOR SS%=1 TO 4:SOUND 500*SS%,2:NEXT:RETURN
  77. 35010  IF SND$ = "N" THEN RETURN ELSE FOR SS%=1 TO 3:SOUND 1000*SS%,1:NEXT:FOR SS%= 3 TO 1:SOUND 1000*SS%,1:NEXT:RETURN
  78. 35030  IF SND$ = "N" THEN RETURN ELSE SOUND 523.25,2:SOUND 30000,2:SOUND 523.25,2:RETURN
  79. 35040  IF SND$ = "N" THEN RETURN ELSE BEEP:RETURN
  80.